home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 37 / IOPROG_37.ISO / SOFT / Multilizer.exe / disk1 / data1.cab / data1 / [Group9]VCL Source Standard / ivbidreg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-12  |  1.5 KB  |  63 lines
  1. {
  2.   This unit registers the bidirectional components of Multilizer.
  3.  
  4.   These components are required to build bi-di enabled applications using
  5.   Delphi 2/3 or C++Builder 1/3. Later version do not require them any more.
  6.  
  7.   Copyrights 1995-1998 Innoview Data Technologies Oy
  8. }
  9.  
  10. unit IvBidReg;
  11.  
  12. {$I IVMULTI.INC}
  13.  
  14. interface
  15.  
  16. procedure Register;
  17.  
  18. implementation
  19.  
  20. uses
  21. {$IFDEF WIN32}
  22.   Windows,
  23.   IvGrids, IvDBGrid,
  24. {$ELSE}
  25.   WinTypes, WinProcs,
  26. {$ENDIF}
  27.   Classes, Forms, DsgnIntf, Controls, Dialogs, SysUtils, TypInfo,
  28.   IvMlCtrl, IvDBMlCt;
  29.  
  30. {$IFDEF WIN32}
  31. {$R IvBidR32.DCR}
  32. {$ENDIF}
  33.  
  34. procedure Register;
  35. begin
  36.   { Multilingual VLC components }
  37.  
  38.   RegisterComponents('ML Controls', [TIvLabel]);
  39.   RegisterComponents('ML Controls', [TIvGroupBox]);
  40.   RegisterComponents('ML Controls', [TIvRadioGroup]);
  41.   RegisterComponents('ML Controls', [TIvListBox]);
  42.   RegisterComponents('ML Controls', [TIvComboBox]);
  43. {$IFDEF WIN32}
  44.   RegisterComponents('ML Controls', [TIvStringGrid]);
  45.   RegisterComponents('ML Controls', [TIvDrawGrid]);
  46. {$ENDIF}
  47.  
  48.   { Multilingual DB VLC components }
  49.  
  50.   RegisterComponents('ML Controls', [TIvDBText]);
  51.   RegisterComponents('ML Controls', [TIvDBRadioGroup]);
  52.   RegisterComponents('ML Controls', [TIvDBListBox]);
  53.   RegisterComponents('ML Controls', [TIvDBComboBox]);
  54.   RegisterComponents('ML Controls', [TIvDBLookupListBox]);
  55.   RegisterComponents('ML Controls', [TIvDBLookupComboBox]);
  56. {$IFDEF WIN32}
  57.   RegisterComponents('ML Controls', [TIvDBGrid]);
  58. {$ENDIF}
  59. end;
  60.  
  61. end.
  62.  
  63.